00100	C  TO PLOT DPY BUFFER -- USE WITH SAVB.FAI[LCS,MUS]
00200		DIMENSION I(1),IJ(200)
00210		DATA ITT/'TEST'/,LL/5/
00300	C  NOTE THE ONE-WORD ARRAY I.  MUST IMMEDIATELY PRECEDE DPY BUFFER.
00400		CALL DPYSET(1,IJ,200)
00500		CALL ALINE(-100,100,100,0)
00600		CALL ALINE( 100,0,100,-100)
00700		CALL ALINE( 100,-100,-100 ,100)
00705		CALL DPYBIG(LL)
00710		CALL DPYTXT(0,0,ITT,1)
00800		CALL DPYOUT(1)
00900	1	I(1)=IJ(2)+2
01000	C  PUTS THE WDCNT AT HEAD OF ARRAY
01100	CC	CALL SAVB(I)
01150		PAUSE
01200		END
01300	C  WRITES A FILE CALLED 'PLOTZ.DAT'
01400	C  TO PLOT IT, RUN PLTVEC (NOTE: WHEN PLTVEC ASKS
01500	C	   TO MOVE POINT OF ORIGIN, TYPE L 1, THEN <CALL>,
01600	C	   THEN   F<CR>.)
01700	
01800	C  TO USE THE XGP: 1ST 'A DSK PTP', THEN RUN PLTVEC
01900	C	   AS ABOVE.  THIS PRODUCES A FILE CALLED 'PLOT.BIN'.
02000	C	   THEN RUN X (USING PLOT.BIN); GIVE 4 AS FIRST 
02100	C	   NUMBER REQUIRED; GIVE <CR> FOR ALL OTHERS.